Technotools/Technotools (Chestnut CD-ROM)(1993).ISO/database/db3stock/bigboxdt.prg

Text File | 1986-04-12 | 801b | 25 lines

* -------------------------------------------------
* * * * * * * * * * * * * *      BIGBOXDT PROCEDURE
* -------------------------------------------------
* define HEADER as a str < 60 chars before entering this routine
SET COLOR TO 7/0
@ 1,0 SAY "╔══════════════════════════════════════════════════════"
@ 1,55 SAY "═══════════════════════╗"
L=2
DO WHILE L<24
   @ L,0 SAY "║"
   @ L,78 SAY "║"
   L=L+1
ENDDO
@ 24,0 SAY "╚══════════════════════════════════════════════════════"
@ 24,55 SAY "═══════════════════════╝"
@ 3, 1 SAY "---------------------------------------"
@ 3,40 SAY "--------------------------------------"
@ 2,3 say date()
@ 2,69 say time()
* H E A D E R  programming set up below
set color to 15/0
@ 2,(80-len(header))/2 say header
set color to 7/0
RETURN